home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / n_b_v203.zip / LINE.DMO < prev    next >
Text File  |  1996-07-04  |  3KB  |  59 lines
  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢    Copyright 1995    │ DATE: 1995-10-01 ╟─╖
  5.  │  │ FILE NAME   LINE    .DMO ║          by          ╘════════════════─ ║ ║
  6.  │  │                          ║  Don Schullian, Jr.                     ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  │ A license is hereby granted to the holder to use this source code in  ║ ║
  9.  │ any program, commercial or otherwise,  without receiving the express  ║ ║
  10.  │ permission of the copyright holder and without paying any royalties,  ║ ║
  11.  │ as long as this code is not distributed in any compilable format.     ║ ║
  12.  │  IE: source code files, PowerBASIC Unit files, and printed listings   ║ ║
  13.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  14.    │                ....................................                   ║
  15.    ╘═══════════════════════════════════════════════════════════════════════╝
  16. $endif
  17.  
  18. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  19. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  20.  
  21. $INCLUDE "DAS-NBV1.INC"
  22. SCREEN 12
  23. GraphicSETUP
  24.  
  25. ? "┌────────────────────────────────────────────────────────────────────────
  26. ? "│ GLineDRAW( Col1%, Row1%, Col2%, Row2%, Mask%, Pmode?, Colour? )
  27. ? "├────────────────────────────────────────────────────────────────────────
  28. ? "│ Col1% = left column        Col2%   = right column
  29. ? "│ Row1% = top row            Row2%   = bottom row
  30. ? "│ Mask% = bit-mapped pixels  Pmode?  = put-mode      ( 0 -> 4 )
  31. ? "│                            Colour? = drawing color ( 0 -> 15 )
  32. ? "│
  33. ? "│ Drawing a simple line can be fun! Just look what we've got to offer
  34. ? "│ below. With proper use of Mask% and Pmode? some really startling effects
  35. ? "│ can be done with lines.
  36. ? "└────────────────────────────────────────────────────────────────────────
  37.  
  38.  
  39. Mask% = 0                                  '
  40. GLineDRAW 0, 300, 319, 300, 0, 3, 14       ' a solid line Mask% = 0
  41. Mask% = -1                                 ' (Same thing here)
  42. GLineDRAW 0, 305, 319, 305, 0, 3, 14       ' a solid line Mask% = -1
  43.                                            '
  44. Mask% = &b0101010101010101                 '
  45. GLineDRAW 0, 320, 319, 320, Mask%, 3, 14   ' every-other pixel is ON
  46.                                            '
  47. Mask% = &b1100110011001100                 '
  48. GLineDRAW 0, 340, 319, 340, Mask%, 3, 14   ' getting the idea?
  49.                                            '
  50. Mask% = &b1100001111000011                 ' here's another way to do it
  51. GLineDRAW 0, 360, 319, 360, Mask%, 3, 14   '
  52.                                            '
  53. Mask% = &b0011110000111100                 ' better have another look here
  54. GLineDRAW 0, 360, 319, 360, Mask%, 1,  9   ' Pmode? = 1  OR
  55.  
  56. WHILE NOT INSTAT : WEND
  57. CLS
  58. SCREEN 0
  59.